home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / COMM / PPL4P10A / GET_BUGS.SS < prev    next >
Text File  |  1995-02-20  |  2KB  |  142 lines
  1. ################################
  2. #    --- get_bugs.ss ---       #
  3. #  log onto MSC BBS (TriBBS)   #
  4. #  and download BUGS.DOC from  #
  5. #  library 5.                  #
  6. ################################
  7. # IMPORTANT: Assumes that your #
  8. # default  protocol is ZMODEM  #
  9. ################################
  10. #  Compile with BUILDER ver 2  #
  11. ################################
  12. #
  13. # define parameters to use
  14. #
  15. USER:     STRING "GUEST GUEST!"
  16. PASSWORD: STRING "GUEST!"
  17. PROTOCOL: STRING "Z"
  18. PHONE:    STRING "1,205,880,9748!"
  19. FILENAME: STRING "BUGS.DOC"
  20. #
  21. # Dial phone
  22. #
  23.   SETPACE  0.2
  24.   SETWAIT  5.0
  25.   REPLY    "!AT!"
  26.   WAITFOR  "OK"
  27.   IFTRUE   DIAL
  28.   SAY      "Expected OK not received"
  29.   GOTO     ERROR
  30. DIAL:
  31.   SETWAIT  45.0
  32.   REPLY    "ATDT"
  33.   REPLY    PHONE
  34.   WAITFOR  "CONNECT"
  35.   IFTRUE   LOGIN
  36.   SAY      "Expected CONNECT not found"
  37.   GOTO     ERROR
  38. #
  39. # no graphics
  40. #
  41. LOGIN:
  42.   SETWAIT  30
  43.   REPLY    CR
  44.   WAITFOR  "graphics (y/N)?|LAST name:"
  45.   IF       "0" THEN  GET_NAME
  46.   IF       "1" THEN  GOT_NAME
  47.   SAY      "'graphics (y/N)?' not received"
  48.   GOTO     ERROR
  49. #
  50. # enter name
  51. #
  52. GET_NAME:
  53.   REPLY    CR
  54.   WAITFOR  "LAST name:"
  55.   IFTRUE   GOT_NAME
  56.   SAY      "'LAST name' not received"
  57.   GOTO     ERROR
  58. GOT_NAME:
  59.   REPLY    USER
  60. #
  61. # enter password
  62. #
  63.   WAITFOR  "password:"
  64.   IFFALSE  ERROR
  65.   REPLY    PASSWORD
  66. #
  67. # "more?" or "Main Menu:"
  68. #
  69. MORE:
  70.   WAITFOR  "more?|Main Menu:"
  71.   IF       "1" THEN SKIP_MAIN
  72.   IFNOT    "0" THEN ERROR
  73.   REPLY    CR
  74.   GOTO     MORE
  75. SKIP_MAIN:
  76.   REPLY    CR
  77. #
  78. # select Files
  79. #
  80.   WAITFOR  PROMPT
  81.   IFFALSE  ERROR
  82.   REPLY    "F"
  83. #
  84. # select Change
  85. #
  86.   WAITFOR  PROMPT
  87.   IFFALSE  ERROR
  88.   REPLY    "C"
  89. #
  90. # select file area 5
  91. #
  92.   WAITFOR  "file area:"
  93.   IFFALSE  ERROR
  94.   REPLY    "5!"
  95. #
  96. # Download BUGS.DOC
  97. #
  98.   WAITFOR  PROMPT
  99.   IFFALSE  ERROR
  100.   REPLY    "D"
  101.   WAITFOR  "download:"
  102.   IFFALSE  ERROR
  103.   REPLY    "BUGS.DOC!"
  104.   WAITFOR  "download:"
  105.   IFFALSE  ERROR
  106.   REPLY    CR
  107.   WAITFOR  "to continue:"
  108.   IFFALSE  ERROR
  109.   REPLY    CR
  110. #
  111. # download BUGS.DOC
  112. #
  113.   DELAY    0.25
  114.   PROTOCOL PROTOCOL
  115.   RECEIVE  FILENAME
  116.   SAY      "Download complete"
  117. #
  118. # say goodbye
  119. #
  120.   QUIET    0.5
  121.   REPLY    CR
  122.   WAITFOR  PROMPT
  123.   IFFALSE  ERROR
  124.   REPLY    "G!"
  125.   SAY      "Hanging up..."
  126.   REPLY    CR
  127.   HALT
  128. #
  129. # error exit
  130. #
  131.  ERROR: SAY " "
  132.   SAY "Error !"
  133.   STATUS
  134.   HALT
  135. #
  136. # common strings
  137. #
  138. PROMPT: STRING  "?]?"
  139. CR:     STRING  "!"
  140. #
  141.   END
  142.